Function ExportScript(WindoName,FileName)
Set myObj = Description.Create()
myObj("micclass:=SwfEdit")
Set objlists = SwfWindow("swfname:="+titleName).ChildObjects(myObj)

If 0<objlists.Count() Then
	 For i = 0 To objlists.Count - 1
			Content =  objlists(i).GetROProperty("swfname")
			Call WriteName(FileName,Content)
	next 
End If
End Function

Function WriteName(FileName,Content)
   Const ForAppending = 8
   Dim fso, f, ts
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(FileName)) Then
   Else
      fso.CreateTextFile FileName   
   End If
   Set f = fso.OpenTextFile(FileName,ForAppending)
	f.WriteLine(Content)
End Function
